home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / tagbr.zip / TAGBROW.CH < prev    next >
Text File  |  1993-04-22  |  870b  |  27 lines
  1. /*
  2.   ┌──────────────────────────────────────────────────────────────────────────┐
  3.   │  Application: TAGBROW.CH                                                 │
  4.   │       Author: Nicholas Solomon                                           │
  5.   └──────────────────────────────────────────────────────────────────────────┘
  6. */
  7.  
  8. #command CREATE TAGBROWSE ARRAY [ <ar> ]                ;
  9.               USEFIELD <fld>                 ;
  10.               TOP <t>                     ;
  11.               LEFT <l>                     ;
  12.               [ COLNAME <cl> ]                   ;
  13.               [ TITLE <tit>  ]                 ;
  14.               [ <mes:MESSAGE>]                 ;
  15.                                         ;
  16.             =>                         ;
  17.               [<ar>] := tagbrow( <fld>, <cl>, <t>, <l>, ;
  18.                  <.mes.>, <tit>)
  19.  
  20. #command DEFAULT <p> TO <val> [, <pn> TO <valn> ] ;
  21.         => <p> := iif( <p> == NIL, <val>, <p> );
  22.            [; <pn> := iif( <pn> == NIL, <valn>, <pn> )]
  23.  
  24. #define CHECKMARK '√'
  25.  
  26. *** eof TAGBROW.CH ***
  27.